From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 5 Jul 2011 20:44:55 +0000 (-0400)
Subject: * lisp/button.el (button): Inherit from link face.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~3071
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=69092a4ef5fd50e34658cbb91176eaae5dea0c92;p=emacs.git

* lisp/button.el (button): Inherit from link face.
Suggested by Dan Nicolaescu.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4146d0524a3..08c1bc5421b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-05  Chong Yidong  <cyd@stupidchicken.com>
+
+	* button.el (button): Inherit from link face.  Suggested by Dan
+	Nicolaescu.
+
 2011-07-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* progmodes/gdb-mi.el: Fit in 80 columns.
diff --git a/lisp/button.el b/lisp/button.el
index 2e485547745..6ef79532ae7 100644
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -54,10 +54,7 @@
 ;; Use color for the MS-DOS port because it doesn't support underline.
 ;; FIXME if MS-DOS correctly answers the (supports) question, it need
 ;; no longer be a special case.
-(defface button '((((type pc) (class color))
-		   (:foreground "lightblue"))
-		  (((supports :underline t)) :underline t)
-		  (t (:foreground "lightblue")))
+(defface button '((t :inherit link))
   "Default face used for buttons."
   :group 'basic-faces)